Public Class NamingStrategy
    Implements NHibernate.Cfg.INamingStrategy
    Private Shared _Instance As NamingStrategy
    Public Shared Function Instance() As NamingStrategy
        If _Instance Is Nothing Then
            _Instance = New NamingStrategy
        End If
        Return _Instance
    End Function

    Public Function ClassToTableName(ByVal className As String) As String Implements Cfg.INamingStrategy.ClassToTableName

    End Function

    Public Function ColumnName(ByVal columnName1 As String) As String Implements Cfg.INamingStrategy.ColumnName

    End Function

    Public Function LogicalColumnName(ByVal columnName As String, ByVal propertyName As String) As String Implements Cfg.INamingStrategy.LogicalColumnName

    End Function

    Public Function PropertyToColumnName(ByVal propertyName As String) As String Implements Cfg.INamingStrategy.PropertyToColumnName

    End Function

    Public Function PropertyToTableName(ByVal className As String, ByVal propertyName As String) As String Implements Cfg.INamingStrategy.PropertyToTableName

    End Function

    Public Function TableName(ByVal tableName1 As String) As String Implements Cfg.INamingStrategy.TableName

    End Function
End Class
